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applicabie t 
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Alas, summer is LARKIN TSs225S-/SPECTRUM nae 
: >19 £. የ : = aio, 
won't be Hille fae AINE ILS E INTERFACE SYSTEM 
eae lop SUR in you know 
at. It's too ba that a шау As ica : 
couldn't be found to use the 2x беш ото Бом ው. . 
NINES 9 alleviate this interface - st i disc 
perenniai headache. I suppose if Electronics. LOBKI LARKIN 
all eise faiied you couid nail is owned ا‎ Electronics 
the ZX to a. broom handle. a member of Barry Kenny who is 
а ው  ፡ዯሇ ሮሠ ርን ን НЕГЕ is а 
5 most of you are ^ SSSESSME Ht he system 
aware, the attendance i ne ат Ve E Ree не» 
summir meetings = C ኮራ. "€ 
rx rur lle eS ellie 
ፆጳፏሏ ቢቢ ትን ም Рр асар 6፻ approximately 7^ x 4. ле = 
CTI LIES., #5 in ጠህ бш Case Shugart S455 esc . 24 a 51п9:Е 
many members were unable to cabling - xem ደሮ ም апа ве 
a tend these meetings because of interconnect a to 
other more pressing commitments AU NAR MEL 
Perhaps we shauted consider the ረ eee ን. of 
የዕየጠ511% cancetiing His July and temporary power коше ee E 
August meetings, This would not pravided: The dotal pr: Tor 
preclude interested members from the sustem was $3268 _price foi 
meeting informally however if ም ን ша жола neces 
ey Srauid =2 x ፦ . H ў т _ P e 2 
raise this matter al our next gU PEE же e the 
meeting. next das Жы AE. Wat presenti 
облус ሠ... not run if my 
heus letter thai Sir Clive uas and the cid UNS Luc Pomp ег 
giving up control of Sinciair severai tesis bu г зы Arter 
esearch to publisher Robert appeared that the cause Of the 
Maxueti, Rumour has it that the problem was the Length Оч E 
deal feii through and Sinclair dE Um FEL ንያ... eee 
has gone into receivership, This .፡ዳ..ፒ ፡ታፐ.፡፡ сеа eee 
oes not come as any surprise to Cable was made up and the suster 
me; the bubbie has burst in the worked as advertised HOUSE 
home-computer market and oniy 8 кылы 
the most hardy manufacture with Since the system is uncased iis 
а diverse product line will first step was to fabricate 
= a be in business this time Cabinets to install the system. 
xt year. ፲84.. Apple and The disc drive and interface 
Commodare are ጠህ guesses. Watch Card were placed in or apa 
for some 58562 deals from approximateiy 4^ wide, "n 
Sinclair vendors for the е if Be mr cere deep 
the rumour is true. Expect and 3" high. The power SUPPLY 
third-party vendors dropping Was геше den о ркасы ре га 
LUBBEFL fer 4ከ6 60080. Line heat dissipation and  instailed 
and suitchins ta other computers in а modifies Radio Shack 
just 85 they did when TIMEX went Cabinet. Computer connection wes 
beliy up. i: via an edge connector that was 
a ene unted 10 the dist 
If Sinciair is bank = 1 44 2 core Cable 
peat ouo nud uo s ur interconnected the dis UE BENE 
essential that we stick together i ድ a Pa SUPPLY. ዱ፡. 
and share in order that the club ccomodate having the ZX Di edge 
will continue to provide 8 connector on tne disc interfate 
meaningfui experience for each board extending from the rear ©! 
of E. Є the cabinet iso that the 20490 
us |, Like the Edsei, printer couid Бе hooked UP! ከፎ 
computers wiit continue to come ribbon cable cannecting ere ክህ. 
and go and there is no way One drive and the in terface card was 
latest deve ኒዐኮጠፎክ ጊይ The ie hbon cable gas extended 3” and 
fundamentais remain the same the tonnectors on the computer 
however and what you learn on in PLU кы гыч nue 
ana шав: i interface ribbon cable were 
eversed. 
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When the egu 
in the Sach 
the compute 


3 was installed 
ፎኑ 
expansion bea: 


nt 

and connected to 
a dohn Gtliser 
the system 
experienced ame problems Т 
had at the ou á I found bu 
adjusting a "7 bte resistor on 
the interface board that the 
problem vanished. The system is 
пош workins апа to date has been 
feliabic, The system was Lert 
running for 45 hours to coax out 
any probiems but none occured, 
AS With ants пеш: system there are 


teething prabiems but those 
found ቲር date are 
Iinconseqvuentisai. 


The system couid 
considerins the 
а good 
first-impressino 


be improved but 
fice tag it is 
UY. Some 
Suggestions for 


Р 

b 
improvins the “system are as 
follows: 
11 the system ኣሻ be sotd as 
a complete syste including 
Cabinets; feu ር. have the 
tonis or skiiis to muster up the 
Parts and parktsase the system 
č! the peripheral bus should be 
a standard 2255 bus rather than 
the 2х83 bus 
oi the operating System shouid 
be modified 42 atcomodate the 
keyboard disc instructions 
father than USF calls 
43 dist frormatting in 1 K tracks 


would sa-e memory 


As I indicated garlier, this 35 
опіч a brief assessment of the 
system and I intend to provide 
a mor comprehensive report 
Ао 





FROM THE EDITOR 


WELL What do uou ጾቨርሠ, Input 
from zomeone eise!!! I таш just 
have a heart problem with ፳ጊኒ 
this excitement, 

No, s&ricousiu folks, I applaud 
those Who have tome out of the 
woodwork zo to speak and have 
Put in their tuo cents worth. 
Mau I 8150 add thet I ат most 
pleased With everythinng. 

The input from these PEOPLE 
represents What it if that they 
are concerned with and where 
theu mau wich to єє additional 
support. You do not have to be 
an expert, vou must realize that 
there are things that uou тач 
dizgcover that have manu olherz 
ይ ቲ umped s 

ህከ knows. uocis fag EVER 
Surprise the so Called experts 
in their oun fields. [if you ፳5፤ 
ME... I think that's rather &atu-- 
they are ati bluffing anuuuads!. 

Keep it up !!፤!፤!፤!፤!፤!1!!!፤፤! 
The Editor, itonau in Cheek: 





GENERAL 


Tips 


for loading FORTH 
(Zx-G1/TS10G5 


eo! 


by David Solty 


Every computer enthusiast 
EMyoyus bugings and running new 
&£Ooftuare but that enthusiasm Car 
be dampened if the Program fails 
to (саа or run according to the 
instructions outlined in the 
User's manual, This was my 
Experience when first trying to 
LOad and гип Artic ZX FORTH Far 
the Tre 1000. The feotiousina 
information I hope witi save the 
users of ZX FORTH some 
frustration. 


First of all the ica on is 
LORD "ZXFORTH" rather than uhat 
is S0 boldly stated in the 
User's manual. This i£ at Least 
a first step towerds a 
successful Load. 


Secondly for some reason 
known ዕዐከኒህ to itself and its 
creator the TrS 1000 is 
f&€luctant to Load FORTH screernz 
from the beginning of a tape OF 


о ————___—— 





the silent section between Astronomy 81 [200072066], 

Programs. A more sure fire Statistics kit #1 [1000], 

method is the following: Electronics #1 [1000] and 

Others. I also expect to finish 

13 Uhen the first part of the very shortly a complete Listing 

Program has Loaded and the Of the library holdings 

announcement comes up stop the including books and periocdicats 

recorder, thanks to the recent aquisition 
2) Type 1 LOAD (or the number Of a COPY of M Script. I shall 

of Whatever screen uou are also Let you know When our first 

Loading). 355ህር25 Of ZX Computing arrive. 
S) Rewind the tape to the 

tail end of the Last section Please! Please! Please! 

Loaded. Contribute programs to the 
4} Start the tape. Library. At the moment ue are 
©) Hit Enter (New Line). WOEFULLY short of anu sort of 

Programs for the T73 2068 and 

The VDU display will white the Spectrum, 

сої but not to worry! The 

Program has mot crashed! ፲ከ a Also remember the adage 

few seconds the loading bars "Public Domain Software’ 


Will appear and the ፐ/= 1000 
Will Perform a normal toad. 
Repeat steps = to 4 to Load the 
remaining FORTH screens. 

When saving FORTH screens ሀክ 
a fresh tape record some tine 
noise or a menu in BASIC at the 
beginning before saving the 


first screen. Reload at the Line EX. = 
noicc ог at the tail of the = = = 
first program. This method be 2225 


Should save anyone a Lot of 





trouble in loading and saving Last duiu, I uas London, 
2х FORTH and its screens. England and round tre Spectrum 
and GL uideiu avaiisbie. TRE 

Copy to Ottawa Sinclair User's Spectrum was selling for арргех- 

Group on 3 Sept, 19885, imately what it selis For in 
Canada. In other ucrdz, we аге 
Getting a fair Shake in Canads 
For Gur money. 

Report from the Librarian I aizo uas in Greece, and 
Wes zurprised that the Spectrur 
appeared to be the oniy personāl 

by David Salty computer computer widely Said iff 
that country. Of course, the 
fianuasiz шеге 511 in English, But 
most Greek YOUNGS peocrie spezi 

For those who mitted mu English. There were 515 a FEU 
announcemert at August's meeting BOOKS availabie in Greek. 

I wish to inform uou that I 

Shall not be present at meetings Here in North America 

until at Least the End of Zebra Systems af heu york City 

December because I shall be are пош offering Spectrum 

attending classes on data emulator cartridges for the EGG 

Ffocessing in libraries at for ህፌሬጅ5,ቹ8ዌ3=, ወ=. (Theze car- 

Aigonquin College. During this tíridaes witht гип SSH of aii 

time Bill Harmer will be taking Spectrum software. Bt thi 

Care of bringing materials to Pricé they are not making anu 

and from meetings although you Profit. But theo expisin thes 

тач continue to make want to sell Spectrum software 
reservations for library апа without Spectrum capability 
materials by cailing me at there is no North AMecican 

731-2126. market for Spectrum softuare. 

In the mean time I wilt zebra is aio marketing a 
remain active behind the scenes. dizk drive for the 2065 ror 

At the moment I am rerecording BSS, SE !!|,=.,) They 5155 have ar 

some of the programs in the "advanced compiler" for the ZEUS? 

Libraru into collections at $19.95, For Buüte-Eack modes 

according to themes in order ቲሮ Ounerz they have tzoftuare which 

help alleviate the Problem of "Perinits X-MODEM fiie transzfer 

Lending only one articie to each Protocol. in fact they have 

person at a time. Look for: Loads of Other hardware ага 


а ت‎ «и -=-:፦..።የ፪:‹‹፳፡‹ ከ96) 





software tror the Ix-ol, ፐ=4፳20ሆ. 
Gi, and EGET, iirite to them fea 
5 iree catalogue, at 

zebra Systems Inc., 

78-086 Jamaica 8።ጓፎ. ., 

Lo Odhaven 3 м. a 3 

U.S.A. 11421 

Telephone: F328) 296-2365 
A good Source ror Spectrum 
Software in Engiand is 

Software Supermarket, 
BY Howard’s Lane, 

London, 5ህ3= Еми, 

England 
Both the above firms accept HISE 
and HMaztercarZd, 

For those with Spectrum capa- 
ability on their zOc2'/ s, the 
following are the current top Le 
spectrum Software sellers ain 
Great Eritain: 

1. Match Dau 

c. Atit Atat 

б. Daleu Thomrzon'" 

Decathion 

4. knightiore 

S. Ghostbusters 

ይ. Bruce Lee 

Te Undéeruwurtide 

£&. Raid Over Moscow 

=. 5ኮህ Hunter 

10. Alien & 

Lf we are going to add 16 the 
Utter Group’s Libraru, some 
thovagnt should be aiven to the 
above titles, 

Weil. that's it Far this 
time. Наррч computing to wou 
alti. 

-Leo Foss 


MLDUDERII BASIL 


bu: Eill Ha 


cme г 


ThE advantage oF а ጅ55ጅ1ር 
compiler over the builtt-in Basic 
interpreter, is that the 
compiler is usualiu fatter. It 
faves time bu doing the | 
Conversion from basic to machine 
Language ir advance in one shot 
(compiling со thet whem it 35 
rum (@xecution? it does not take 
this time doing the 
interpretation, — 

Mcoderii is an ifüproved 22-04 
WETSiON. The first thing one 
notices however, When one goes 
ahead and tries to convert a _ 
basic proaram is that Mcoderil 


rejects manu of the statements 
that Would ከዕየጠ811ህ run good in 
Basic. This is partially due to 
hard tà PinPoint Ways in Which 
the compiler differs from-that 
Of the resident interpreter and 
Partiu due to the fact that some 
Statements do not Exist in the 
McoderlilI compiler, 

This means that uou Will have 
to rewrite the offendina 
£tatements to suit HcoderrilI or 
if that is not possible then uou 
Will have to develop subroutines 
that Will do the same thina. 
оте Programs after same study. 
Мач not be convertabie. 
Alphabetic sortation is a 
definate problem. The solution 
35 Obviousliu the assignment af 
code values to the Letters, 

Hs far 85 changing ucur Basic 
Programs to run under HMcoderrr 
a List of fixes Follows this 
article. 

The most Striking aspect ar 
McoderII is the oniu INTEGER 
mathamatics: it Wilk mot accept 
deciiial constants, variabies ог 
CULPUL numbers and when uou tru 
to Program around that, uou тач 
TUN into the Limit on the 
Largest integer that it uiii 
accept ie ..!c22768). However 
these Problems do not appear 
unique to HMcoderrl judging fram 
Literature from other compilers, 
Here are a few fixes For same af 
the Probleme: 

-IF ASB THEN PRINT "B lo ^ LESS 
TRAN E muszt ኑፎ Changed ቲር 8 а з 5 х 

IF EA THEN FREINT "ጾ Io. LESS 

TRAN E" 
-IF A=E THEN PRINT "A EQUALS E 
must be Changed CE o 
10 IF A+B THEN COTO 48 
20 IF 6G: THEN GOTO АС 
cO PRINT'A EGUALS B" 
16 э 8 E к E ዌ5 E 8 B E оу 
-IF E:C AND B+ THAN PRINT "B IZ 
ገር HEEN A AND C" MUST BE CHANGER 
iae LET үҮ=@ 
ze IF E:n THEN LET ሃኛ=2 
223 ፲ኛ C:E THEN LET Yzv4i 
THEN FRINT "UE l3 


4a IF Y t1 
EETUEEH A AND 
- THE EXPONENT 
LES I5 NOT ALL OL 
CHANGED TC ITS 


н 
EI 


D 


x 
‚+4 


» n Lo" кА 
m 
mop = 


hor 
1 
C 


2 C L DECIMAL 
REPRESENTRT LON. SUCH AS 1086. 
(beuare the Z32763 limit! 
-IF Apa THEN PRINT “ኘፕይህ CHOSE 


TES" should be changed 
10 LET A= Ci ሃ 
i H 


20 IF A: (CODE A$) THEN GOTO se 
506 IF (CODE 8:38 THEN GOTO Fe 
40 PRINT “YOU CHOSE YES" 


EG " a ፳ 5 ж 5 к 5 E A3 к 


ETE 23-2494 o 9t 


а= اپ‎ 





ODDS AND ENDS 


3D TANK DUEL 


There is a need to make backup 
copies of programs purchased on 
cassettes. ል very useful program 
to make backup copies of just 
about any program is 007 and its 
relatives (TRICKY, MAXSPY, 
etc...). However, there are some 


programs currently being sold 
that have purposely been made 
resistant to 007. 

3D TANK DUEL is Such a program. 


To see how the protection 
mechanism works, simply load the 
second part of the program as 
follows: 


LOAD "" CODE 
Observe that the program name 


will come out as TANK printed 
vertically downward, starting 


from HOME position. This 
effectively messes up the 
Display file where MAXSPY (son 
of 007) transfers its Load 
routines. You can get around 


this obstacle by creating your 
Own dummy label or by proceeding 
as follows: 


1. Load the first 
program with the command MERGE 
сп. then save with SAVE 
"SDTANKDUEL" LINE iO. 


part of the 


2. Enter a RUN command to load 
the main program. Near the end 
of the load, keep the "QQ" key 


pressed. Once loaded, the 
program will hold for a short 
length of time (опе second) 
provided "G" is still pressed. 


During that time, press CAP/SHFT 
and then BRK, and the program 
should stop. Simply GOTO 100 to 
save (The pretty screen is lost, 
however). 

Marcel б Boult. 


TASWGRD II AND A BLACK BORDER 


Some 
package 
border and 


follows: 


Enter the 


users of 
тау prefer a 
light ink on 
paper. It can 


BASIC 


this excellent 
. black 
dark 


be done as 


mode to get 


access to the BASIC portion of 


TASWORD 11. 


Edit 


line 40 and 


insert at the beginning of the 
line the additional commands 


BORDER  O:PAPER O:INK 7. 


Then 


POKE addresses 64840, 64841, and 


64842 
comman ቋ and 





with  O. 


Enter a RUN 


voila! 


Log 


Marcel G Boult. 


ical 


statements 


THIS INFORMATION on 
string arrays and logical 
arithmetic may be of in- 
terest. 

Sinclair ZX-81 Basic 
lacks an IF ... THEN ... 
ELSE statement. In one 
specialised context, 
however, this can be 
mimicked with the use of 
string arrays, thus saving 
program space. 

Since one cannot have, 
for example: 


IF Nz1 THEN PRINT 
А$(7) ELSE PRINT AS(8). 
one might seem to need two 
statements: 


IF N=1 THEN PRINT 
AS(7) i 

IF N<>1 THEN PRINT 
А$(8) 

In fact, they can both ከፀ 
replaced by the single 
statement PRINT AS(NOT 
N-1). 

A similar effect can also 
be produced, so long as N 
is not zero or negative, by 


PRINT AS(7 + SGN(N-1)): 
but that prints A$(6) if Nis 
zero or negative and in any 
case needs an extra pair of 
brackets. 

The idea can be extend- 
ed. provided always that 
the choice is between str- 
ings in the same array. For 
example; 


IF N>8 AND N<13 
THEN PRINT А$[25) 

IF NOT (N>8 AND 
N«13) THEN PRINT А$(6) 
can be replaced by 

PRINT AS(25-19*NOT 
(N»8 ANDN <13). 


The same can even be 
done for more than two 
conditional statements; 


for example, the four lines 

IF A = 3 AND 8>4 THEN 
PRINT AS(7) 

IF A=3 AND B<=4 
THEN PRINT А$(8) 

IF A<>3 AND B>4 
THEN PRINT A$(23) 

IF A<>3 AND B< =4 
THEN PRINT А$(24) 
can all be replaced by the 
single 

PRINT ልፄ(7 + 16*(NOT 
A-3) + NOT B>4) 
with a considerable saving 
of space. 
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LARKEN DISK-DRIVE 


Ive got one 100..፡.፡.፡፡።። 


By dim Turner 





As a matter of fact, I think 
l've got the first one Larry 
Fi d" Let me Go on about it for 
а її. 


The first drive controtter 
and drive that Larry Kenny 
brought me had a few problems to 
сач the least. It wouldn’t work 
With ጠህ computer. Larry had 
developed the whole system using 
his oun 2868 and it aPPeared 
that the talerances he used 
teren’ t uide enough, He horrowed 
ты computer and spent some 
Sleepless mights Getting his 
sustem to work on, not Just my 
computer but, any 2858. 

That problem out of the way, 
the next turned up in the power 
£UPPlu he had Whipped up for me. 
It would get sco hot, that I 
couldnt touch it and 
eventuality, one of the resistors 
or something (HEU. se I never 
Said I was a techie)? and way 
Something Quit and Larru had to 
come to the rescue again. 

That seemed to take care of 
the technical probtems, but. 
efter I started using the drive 
а bit. it became obvioUS that 
the ጅር5 had a feu! aS well. 
Nothing mayor, Just annoying 
tittie things thāt Made ad- 
daptina to using a disk drive a 
bit hardet...fof instance: 


—at first, Larru had used the 
Shifted "5" to move back through 
a typed in command. this 
movement also deteted the 
Character to the Left, Just Like 
the delete key on the 2058S. I 
found muself constantitu hitins 
the delete keu instead 5፻ 
Shifted “5”. 

I spoke to Larry about this 
and he Changed the pos 
accordingly. 

—another problem; if cede has to 
be saved, one must da some fancy 
POKING of g bute hex values 
before saving. This uas quite 5 
Problem for me since I don't 
Speak "HEX". I sotved this bu 
writing a Little program that 
would take a CODE file from tape 
and Save it to disk. ~The 
biggest Problem... Ме I had ቲር 
make MYSELF think in a whole new 
way. Programs toad sa fast from 
disk that I can think of 
individual Programs almost as 
subroutines. Inagine, а basic 


Program that is oniy a menu 
routine. It accepts your 
selection ወካ Loads the 
aPpropriate program in under ^ 
£e&ronds.,.., AGES it’s Job and 
loads another. It’s a bia step 
from ፎወይ5 tape loading. Its an 
€normous step from the TS ipga 
tape loading. 

~The system comes uncased. Nat a 
big Problem for some. Those who 
already have ge feet of 
peripherals extending from the 
back of their machines шоп 1 
find this too disconcerting but 
for me, ጠህ recurring nightmare 
is about a 3 year old a kid 
ዴዞ፤113ኸሽ3 chocolate milk on an 
€=posed circuit, and the Lights 
going out alt over town. 

I've got a plan for a case 
but as uet, it’s Just a plan. 
When it's Finished, I Lit bring 
it to one of our meetings and 
blow you all away by Loading a 
Program like Ui!-3GD in just over 
5 ЕСИ ieat uour hearts 
out). 

Simply, the system has it's 
Short-commings. But it does 
everuthing Larru designed it to 
do, at a Price that is Still 
be tow what Commidor owners have 
to pay for their disk Systems 
that are oniy slightly faster 
than tape. 


The Piece de resistance.. 


It works on Spectrum tool!!! 


No other disk drive sustem 
For our computers ran boast this 
feature. Those of US who have 
invested in a КОМ switch and 
have experienced the software 
available from Joliy cide 


England Wili knou the 
Significance of this statement, 





Sean 288 


THE ZX-81/TS190Q9 NOTEBOOK 


From the book "GOSUES" by 
Edwin and Shirley Gaby: 


This subroutine checks to see 
if another line can be printed 
on the screen. If not, it 
scrolls and sets up the print 
on line 21. 


Substitute your own line 
numbers for X, for instance 
Х@@ can be 50t. 


Х@ REM auto-scroll 


X129 if peek 16442 = = then 
scroll 
X20 if peek 16442 = ፎ then 


poke 16442, 3 
X32 return 


The following program 

will accept your input and 
place it inte a properly 
dimevitioned array. It places 
your data into an array AC1) 
and also provides N ( the 
number of elements in the 
array J, MX ( the maximum 
value in the array › and 

MN ( the minimum value 

value in the array 2). If MX 
and MN are not needed, delete 
the appropriate line numbers. 


1 REM array iriput 
10 iet mx=2 


La print “Input Number af 
items in data" 


SW input n 

42 dim aírn) 

52 cls 

E0 for i = 1 to n 

70 print "аб" іу") = "5 


BA input a(i) 
92 if i = 1 then let 
мх=а (і) 
422 print ali) 
412 if абі) > мх then let 
mx=a (1) 


_ ———————————-—-— —— 


120 if a(i) (тү then let 

mri-aí(i) 
130 gesub XOQ ፲፪ rem autoscroll 
140 next i * 


NOTE: lire 134 helps avoid 
errer coce 3 
Submitted: Orville Kermy 


CONVERTING PROGRAMS TO ZX-81 
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This article is the begin- 
ing of a series on converting 
proegrams intended for other 
computers to ZX-81 Basic., 

Since general programmirg 
iceas are discussed as well, 
it will also be cf interest 
to all that wish to spain 
more insight inte and ideas 
for writing programs. 


MOTHEMATICS 


Other basics а11с ል 
formula to be expressed in 
the form of a simple equation 
thus: C=B-A , but with ZX 
basic you must always 
preface such a formula witn 
LET. Other thar that and the 
fact that exponentiation is 
indicated ir some basics as 
an up arrow cr а ^ , there 
shouid be no problem with 
arithmetic in Basic. ( even 
FORTRAN uses the same sart of 
formulas, symbols and variable 
names as is allowed in the ZX 


Samet imes LOG is used in 
ether basics ቲር mear what the 
ZX calis LN, but both are icu 
to base e=c. 71828 rather than 
lag ta base ій that we studied 
in schaci. ( the inverse 
function ef LN is EXP which 
raises e to the power specifie 
by the ruber following ). 

If you get LOG in a progranm 
to convert, just convert it 


BEEN M ው 


ta LN. If however you really 
rewi iog to base 10 in your 
program or mathematics, you 
can use the formulas 

LET LOG1Q- (LNOR))/(LN(C10D). 
Note that some basics require 
that the number that LN 
operates on to be in brackets. 


One thing that can be a 
real problem is wher DEF 
arid FND or FNR is used. 

eg. ій DEF FND(X)-X**3 
ead LET Y=FND (3) 

#would return Yzez 
This allows a programmer ta 
input a function into the 
program. The following is a 
methad that the writer has 
used to duplicate this fer 
the ሯጀ፦ይ1 2 
128 print" input function 

equation or value" 

ea input a$ 
Зӣ let y = VAL a$ 


This is based cor the principle 
that VAL will evaluate the 
string that follows it as an 
arithmetic statement. 


If MOD occurs in a program 
or the program is intended 
for integer basic, all the 
civisions should be preceded 
by INT. The example cf 

Y MOD X can be replaced by 
Y~ (INT CY/X) *X). 





FORTH 
CORNER 


Serry folks, mo Forth Mind 
this issue. As many af yuu may 
know, I have been working 
overtime so ta speak or my 
disk drive and the conversion 
mf tape programs to disk. 

The Forth programs that I 
have been using ie.. 

Abersaft and White Lightning 
are Spectrum programs and my 
attempts ta convert these to 
the 2268 have so far failed. 
Obvicusly I am rat a good 
ኮ/ር programmer. 

Mruighted Computers to the 
rescue. Shades of the White 
Knight! They have contained or 
coverted White Lightning tc 
nur, on the c068. Now hopefully 
I will be able te transfer it 
to disk and run it from there. 

Until then, most likely to 
the next issue, this section 
will address tutorials. 

Let's hear from all those 
Forth users out there. 
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4 REM THE DISPLAY IS PRINTED 


era Тыт 
Geet oe а of OUT ONTO ል 8#8 GRID 
ESQ PRINT AT 2,2 9 REM ***INITIALIZATION**x* 
"Meek engins = 10 RANDOMIZE 
шч асс е ar atlas at 20 DIM A(100) 
^28 PERD sg . 30 DIM B( 100) 
$38 PEINT ат Bi 54344 40 DIM E(B) 
OL АФ ТЕТЕ, a 50 LET E(1)=-11 
750 NEXT i 60 LET ፳(2)=፦10 
SOG DATE UM ga T 70 LET E(3)=-9 
5555 sTÓP * BO LET E(4)--1 
сб БШЕК "bet" LINE 90 LET ሯፎ(‹=5 ን=ቷ 
100 LET E(4)=9 
110 LET Е‹7) =10 
4: 3 LET Е‹8)=11 
130 LET C=30 
NARTY 139 REM ###RANDOM ርጅ1.1. ሙሙጆጅቻ 
| BINARY LOOK-SEE 140 FOR Z=1 To 25 
ые ን ን E I ፣ to be 150 LET R=INT (RND#100)+1 
ma с et cune «ранага. Pit 160 LET ACR)=C 
э оке алы ፣ ከከ i ine Eat 170 NEXT ረ 
Patterns of cthers..... 175 LET ጩ=ዐ 
Here is the resulting 178 PRINT AT 10,10; "GENERATION" 
Program. Short and sweet and ії 180 Go TO 390 
ucrks. 189 REM x*xxxxCALCULATIONSx*** 
190 FOR x=i TO 100 
ZSO00 LET Со=0 
Jim Turner “10 FOR B=1 TO B 
10 INPUT a 220 LET Рі=Х+Е (Р) 
20 LET ш=а 230 LET Bi=Bi+(i0G AND ጅ1«13)-(1 


30 LET == 
40 DIM 88 (5) : LET cz128 
S@ FOR x=8 TO 1 STEP -1 
6ፎ LET 88(፡፤)=("፪" AND INT 

ንፈን (ዳጋ።/ዖጅፎን) ፡ጺ LET azINT (A+B): 

ር=ር/8: NEXT x 
70 PRINT "BE';as;"E 
8e GO TO 1e 


GENERATION 


1 REM FOR THE 2068 RUN WITH Ii 
ORDER O,PAPER О, АМО INK 7 
= REM FOR THE ZX81 MAKE THE F 
OLLOWING CHANGES 
2 FAST 
130 LET C= 52 
400 SLOW 
480 FAST 
10 RAND 
3 REM THIS PROGRAM WAS TAKEN 
FROM THE GATEWAY GUIDE TO THE 2х 
81 AND 2Х80 PAGE 77, 78 


я Е 
LET 


=";ህ 





ОО AND B1i?100) 

240 IF ጅ(ጅ1ን)ን=ርሩ THEN LET Co 
220 LET ጅ1=አ+ፎ(ጅ) 

230 LET ጅ1=ጅ1+(1()0 AND BR1zi»-í1 
00 AND P12100) 

240 IF BCBLO=C THEN LET Со= 60+: 
250 NEXT Р 

260 IF ጅ(ደ)«።=ዐጠ AND ርህ<>= 
223 THEN LET A(X)=0 

“70 IF РХ) =0 AND CO=3 THEN LET 
ACX)=C | 


= C+] 


AND CO 


280 
390 
399 
410 
420 
430 
440 


NEXT X 
PRINT AT 10, 21:6 

REM *#*DRAW ARRAY ++ 
FOR Y=0 TO 8 

FOR X=1 TO 10 

LET B1=Y*10+x 


PRINT AT Y,X+10:CHRS (ል(ጅ1) 


+128) 
450 LET ጅ(ጅ1 ነ=ጳ(ጅ1) 
460 NEXT X 
470 NEXT Y 
490 LET ር=ፎጩ+1 
500 Go To 190 
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several Menus tū ሯፎ са: Ёа 
durina ቲከፍ run, Some of the 
menus were even choices on other 
ments, 

White uorkinag, it seemed ta 
me I was writing the fame code 
over and ower for each menu. 4 
decided hat i uoulid write = 
£uUb-routineg that шона Brant 
th aii. 
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—then texte ቲው alli tne choices 
The ittie demo Prosaram 
demonstrates that one need oniy 
RESTORE ተር the correct DATA 
statement. then calli the 
zub-routine. ThE Selection is 
made Using oni the Space bar 
end ENTER returns to the main 
program with the proper value in 
the variabie "C ICE 
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I'm & 
code 15 =ኛፎ 
technique FOr а email 
aprpiication Like his one but if 
a proaram reqired 5 or LA menus 
to be called at one Lime ar 
another, then this might be of 
Same use, 


100 БЕМ tyytyy ytty 
+ ГЕМО + 
++ +++ +++ +++ +++ ЕУ УУРУ 

RESTORE S202: GO SUR Баре 

120 IF CHOICE-3 THEN RESTORE 

5 SUB Sag: LET CHOICE-CHDOI 
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ome 


on 


ico: Gf 

ዌጅተ6 Р ў zz =. m. sh a pU. 
$308 PRIN ይፐ 168,18; “CHOICE =";C 
отс = 

apap REH 2 ብ... ሽሽ ሽሻ 


МЕНШ SUB-E DUTINE 5 





READ X,Y: REM X=NUMBER OF 
CHOICES 
¥= MAX LENGTH 
OF CHOICE 
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DUMMIES ና 72! 


FOR A= TO и : БІ: 
COLUMN C$ (6:+3 : NEXT 
:G SUE БЕРЕ 


LF INKEY£-2"" THEN GO TO ғат 


rata + Cai 
de bd 
9 9: 5 


e r0 c c ፲፲ UE 


Борова LET v z0CDODE INKEYS: IF wv-2z 
TREN GO SUE Batt: LET PDOÓSITION-P 
23237? ፲ሀከ8ክ፥+(3 AND POSITION:IEOU-X-1 
Ж Жый AND ሦ[2 3ፐ ፲ህክ= (፳85መተጆ፦ኋ፤ 1! : 
oS ሯ=ሯፎፎ 
asê ኘ“=3= THEN GO TO 2321р 
e TO 207 
e HOICEZiPDOSITION-ROZd!-41 


^" 
"E m. 


x 

mf CHE 
ም ተ) 1ኛ 
TH 


mar 

T1 
H 
ር) 
= 
የኽ 
л 
r^ 
ге 
2 
ኑ- 


"በ 

` ቴዝርጠጩቷ 
EO T ዘ 

ቂሹ “4 


ርሀ ኪነ pe» mmc: 
жаа !ጋ ТТ DOIN ዝቄ” 6)ኑ4ርሯ | 
ШШШ e ue nae 
Ad ERU 
Los 
T 
“К 


z 4 Un Cn cn en co zs co eo en Cn r 
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ሑ | ቨ ርህ ሮ3 ሮሀ ሮሀ ኑ። ETE Por e ርህ tL ፣ 


ATA 3ፎ,38, "MAIN МЕНО", “CHO 
83", “CHOICE #2°, “CHOICE #3" 
DICE 84“ , "CHOICE 85" , “CHOICE 
E i1: as HOITCE 2l 55 р ёг LFUILE gS" à as [MIU 
ICE HS . "CHOICE 16” 
56416 DATA 5,9,"5UB MENU", “CHOICE 
i", "CHOICE #2", "CHOICE нз", "Сн 
CICE #4", "CHOICE 85” 


DRAN 100,100,418 





CASSETTE TAPE RECORD 


I ከፍዩዬዩወኗፀ a Wau 106 keep track 
of mu -9ርርህ3ከ8 Library ር 
Programs, Uu-File seemed Like i 
might do the trick but it was 
bit cumbersum to load both files 
€ach time, Besides, Id never 
uritten anu tort of record 
Procaram before so I decided to 
do the de€finative BASIC tare 
record file. (déefinative because 
it’s the oniy ane I,ve written 


fit nh ማነ 


10 БЕМ Tare € dE 
15 ON ERR GO TO рар. ፎር TO зе 


se DIM 58 (42,315): LET prog=8 
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mes 


-J КА 


ТЕ 
Буу» 
“ያፒ ርነተሹ б) 


"CM 


“Pete. 
ip,id TO 16) 


[111 ዘጠጀ s 


and BASIC because it's the опіч 
computer lLanguse I Know) 

J is menu driven, Saves only 
the number of records entered 


a huge D IMmesd string 


Wariabte which iS usually half 
&€mptul, prints to the screen or 
Printer and sorts tuo different 


(alphabeticaly and by tape 


humber). Bu the way, when the 
Program sorts by tape number, it 
also sorts the Programs on the 


ይህ Side and counter 


tocation. YOU Can search for a 
Eingle program or а whole. tape. 


The Prosram uses a Basic 


bubble sort and а= a result can 
take a feu minutes to do its job 


the record reaches a 


hundred entries or so. 


Jin Turner 


፡ ا‎ 


Add a Program. 

Delete a program. 

See programs. 

Sort programs. 

Save program file to tape. 
Load a Prosram. 





65 PAPER 1: INE 7: BORDER 1 
CLS : PRINT HT т.108; °.. %ጄ 
А e -t 


“ | C. 





pu c 
= 


со TO 18028 






IF CODE ==” THEN GO TO тер 

4@ LET z-UnHi !ፓ2ሕ) +1 
(A CLS . GO ፐር {PEE AND z$£-"1 
i4-iggag AND 2=28='"=”") +፤=2ሯፎሯፎ AND = 
2”) +፤(4ፎሯፎፎ AHD 238፡='4'") +ተ(5ሯፎሯ dH 

TESTS HE ¥ AND 2ዷ="ር”) 

pp REM ig ROTE EU | 
10 PRINT Н 1.8; РР .1 TO ie 
"pE&iíp.ii TO l1z);THE 19; 
1 225 1 ፡ TRAE ze ' "RA Te 1 P ES 








PRINT : RETURN 
LBEINT HT z1.0;p&ip,1 TO 1@ 
SUE rs eos 342] ፐመ5 is 
58% (ጅ ,32) TAB B6; "BÉ Cp 
%(р,14 TO 16: - 

12160 LPEINT : RETURH | 

43259 PORE 25692,21: PRINT AT zi. 
@: PRINT : RETUPN 






11356 
i202 
} 3 

t 
3 






ፎሯ2ሯፎሯ GO SUE зао. POR, ፎ25ሮ=5፳=ኞ.2=: 
LET prog shee cre 

2020 INPUT “Мате”; 2s: ፲ኛ LE 
10 OR Z£z"" THEN BEEP .፳ , -ሯ 
TO 2020 

ፎ፻ሯ2ፎሯ LET pSiproc.1 TO 18:3 =74% 
2040 INPUT "Tape number "Zk. IF 
LEN zhre THER GO TO 2248 

FELE FOR z=1 TO LEN Z$. IF ZIZ] 
"O°" CR zü&izis-"2" THEN GO TO 284 


e 

ፎሯፋ4. NEXT 2: LET BPHiprog,1i TO i 
Eja” AND LEN 25%8=13፤ +2 

Egi INFUT "Side "323 IF LEN Z 


+1 THEN GO TO 2646 
ፎፎ45 IF Z$:»"1" AND 28.›"=”" AND 
2%‹5"ሽ”" AND z5$:2"B" THEN Go To = 
eio 






ፎሯ=ፎ LET p&£iprog,i1ns)zczzt 

собо INFUT "Counter # б;т TP L 
EH 28:2 THEN GO TO 2260 

ERGE FoR zzi TO LEN 24: IF Zizi] 
i "CQ" GR z&iíizi:"2" THER GO TO fae 
a 

ፎሯር6ርፋ NEXT 2: LET pPSiprog.i4 TO i 
Bici" " AND LEN 2ቹ፣=ሯፎ)!+፤(”" " AND 
ЕН 2Z#=1) 428 

бг LET pzpros: GO SUB 1100 
себ PRINT AT 21,8: "Correct. L 
ET S§sINKEYS: GO TO 2888415 ANC 
ዴቹ=”'"ዛ')ተ፤(2ጅ iD Sexy 

ፎሯመ= p т ፎ3.5፳ኛ: d is 
ር) iE ሯ: | SUB 2: FRI 1" 


: JT ኮ 1 is. 
: FAB o9: "E € pf 
55 "Б One tape" 

тй КЕҮФ: IF z£$-"" THE 
4 

соб IF z£-"1" GR rz£-"m" ዕፎ уфе 
=" THEN GO TO i3030 AND ፓ2ቅቓ=”"3”!+ 
acrius AND 28='ፎ')! ፥+12=5ፎፎ AND Z=” 
з] 

GEES GO TO 2525 

z030 GO SUB 3300: CLs GSO SUB 2 
255: FOR р=1 TO prog 

“EGS IF print=i THEN GO SUB 1128 
: PRINT : NEXT р 

SEG? IF FPRINT=s1L THEN GO TO =e 
30640 GO SUB 42288: LPRIHT - NEXT 
Р 

38560 GO SUB 1506: GO SUB 13908. F 

RINT INK 7;"EHD OF FILE". РЕБЕ 
e со TO 18808 


255 CLS : INPUT “NAME? “Zk IF 
LER Z$:10 THEN GO Ta Z508 

3585 GO SUB ==ፎሯ 

3210 GO SUB 1586: FOR х=1 TO FRO 
IF РФЇХ,1 TO LEN 23: =ሯሕቓ THEN 
LET Pzx: GO SUB (1108 ANE PRINT = 
L} + +{1200 AND PRINT=2:: GO TO 352 


E‏ چ 





иии | 





GSES NEXT Xx 
Bese ¢o rn 2gce 
S538 ca SUB 15806: PRINT LU EHE 
=) eee PAUS Е 0: IF INKEY $=" 
5 THEN PRINT AT 21,8; 
". WEST Х 

SAE PRINT INE 7; UERR 
Pause e: GO Ta 18860 
Scopo CLE : INPUT “TAPE Я "; 25: I 
F LEW 2¢:2 THEN GO ፐር ЗЕ 
3605 FOR 2=1 TO LEN Z$: IF 2ፓ%ቕ (2) 
“ас DR Zurtizi-"2" THEN GO ТО зай 









e 

SEG? NEXT Z: LET X£-i" " AND LEN 
፥=ቕ8=2) +ሯ 

==405 GO SUB 2388 

збро GO SUB 1288. FOR x21 TO FRO 
Б: ፲ኛ РфҮХ,11 TO 2ፎ) =X THEN LET 
Pzx: GO SUB {1188 AND PRINT=H41: + 
(1260 AND PRINTES) 

SEGE NEXT X: PRINT AT 21.0; INE 
2j "FINISHED": FAUSSE е. cO TO 128 
et 

ENO CLS PEINT AT 21:07 





ar. = 





a Dr TE E j : PAUSE e 
| IF INKEYS="M" DR INKEYS="P" TH 
EN LET ргіпї=1+(1 AND INKEY$-"P" 
|: PRINT AT =ፎ3,8ፎ:' 

": RETURN 


22405) GO TO 2902 

4000 REM Ee 

4882 CLS : INPUT "M ALPHABETICLY 
BY TAPE “ie 

3 IF 2%:›°3° AND Z$::° 2" THEN 
со TO 4862 


p 
Se 
С) 
ርዕ 


4210 CLS : LET я=1: LET Bee: FRI 

NT AT 10,12; INE 7; "SORTING: IF 
ZE=“ E" THEN GO TO 45880 

42208 FOR ж=1 TO PROG-i 

4256 FOR ї=х TO PROG 

4246 ፲ኛ ሦዔ!ፕ.,3 TO 10} +=F${x,1 TO 
18) THEN GO TŪ 4256 


42508 LET ጅቕቅ=ሠቓሄ !ኘ 
426@ LET ሯዌ) PEx) 

4270 LET Pix! =ርቕ 

42858 NEXT Y 

429@ НЕХТ Xx: BEEF .2,0: GO To i68 


4586 FOR х=1 TO FROG-i 

4510 FOR Y=x ፐር PROG 

4520 IF VAL Pir. l1 TO 123 › SRL 
FEtX,11i TO i12) THEN ፎሮ TO 4550 
45230 LET EBS=Psiyi: LET ምዎቹ(ፕ) =ቻዌ፤ 
Al: LET ሦዌ!፡=) =ፎ 


4550 NEST v: NEXT X 
4686 LET у=1: FOR 7=1 To PROG 
452ፎ ፲ኛ ሦዔ [መተ3,33 TO 3ሯ)‹<:ቻምቓ!ፓ.,3 


i TO IZ! THEN GO TO 47068 
4626 HEXT Z 

4630 BEEF .z2,0: GO TO ኋፎጅወፎሯ 
4700€ FOE ዉ=ህ TO 2-1 

4710 FOR Yee TO Z 


1 
a TO 361+(13656 ስከ | UAL PRX, 
| THEN GO To 47568 
Uy LET Piri =ሮዷ i 
4750 NEXT ү: NEXT X: LET ህ=2+: 
Брав CLS : SAVE “TAPE REC." LINE 


ሯ 
TEAS PRINT HT 20.0; “REWIND ТАРЕ 
AND PLAY FOR WER 


=5465 ON ERR GO To 5=8ወ 
Saza VERIFY “TAPE REC." 
5030 CLS : PRINT AT 21,0; INK 7; 


“TAPE OR": OH ERR Gû Ta 16022: FR 
USE 100: BEEP .2,28: GO TO 1888 
S500 CLS : PRINT AT 21,8; INK 7; 
“TAPE ERROR": EEF , 75 ,>ፎሯ: FAHS 
E 1580: ON ERR G0 TO 2486: GÛ ፐር 
18868 

bt: FEM 

Беле CLs 





ADDED TŪ THI NPROGR 

U RESAVE IT YET? {ү OR Hi" 

5ሯሯሯ LET ፓቕ= INKEY $: IF Z£&-"Y" OR 
ZSÉLUNC THEN GO TO 6842 

Base cO TO Бага 


6040 IF Z#="N" THEN GO TO 1020 
5650 CLS : PRINT AT 21,0; “START 
TAPE THEN PRESS ANY KEY": PAUSE 


D: CLS : ON ERR RESET : LOAD "" 
ТӨБӨ ON ERR RESET : STOP 

Soep INPUT “WHICH FROGRAMT ";Z£ 
26010 IF LEN 29:38 QR Z£$£-"7" THEN 
So IU Soag 





caeco NEXT ድ 

Bata CLS 

ao 

Go T 

SESE Ca E. 258202 

=2ሯ=5ጅ CLS : LET Р=7. GO БИБ is 
520 SUF 1188 

žaba INPUT "DELETE THIS FPROGRANT 
т OR ND SS 

Sera IF ጃ='ፕ፣ፕ፣፡ THEN GO TO Base 
SEaG NEXT Z 

ሮሯሯፎሯ FORE =F TO FROGS: LET P£iZiczc 

PEXizc-l1!: NEXT Z: LET FPROGSPROS-i 
; GO тб 1088 

SSE OH ERR ፎር TO S680: DIM ір 

ROG, IG) FOR x-zi TO FROG: LET iif 
ix, jl TO 16i =ምሦቹ፤(ጆ,3 TO 181 HEST 
ጆ 

2510 DIM ሦቐቹ [(ት።ፎፍፔርተ+2 , 2ፎሯ) : FOR ጆ=ኋ 

TO FROG: LET ሦቹ፤።ደ, TO 1681 = її 
i TO 351): НЕХТ Ж: DIM U$ {1} 

SEES RETURN 

ሯፎሯሯ DIM ИФ 110: DH ERR RESET : Р 
FINT AT 10,12; INE 7; "FILE Filii" 
: BEEP 1,-z0: PAUSE 8: GO TO ኋፎሯ 
e 

берс SAVE “TAPE REC. LINE 15 






LETTERS TO THE EDITOR 


Чын» — —— ጠጠው ጠው ሎ.0 шн) deben AMBAE en ee duci 40  በሾቸዋ በ9996 Oe GE ^ ከበ SR oe 





By the way folks, I must 
apologise for the error con 
the last issue that indicated 
VOL.II Issue III. Flease 
change your copy to read 

VDL. II ISSUE IV. 

This morth’ s is issue V. 










Keep those cards and letters 
comirg....what??? 








1928 SCROLL 
1950 IF AS(1)="Y" THEN GOTO 1880 
1950 RETURN 


2000 REM CHANGE RECORD 

2010 SCROLL 

2011 SCROLL s 
2020 PRINT "TO CHANGE A RECORD, YOU MUST" 
2050 SCROLL 

2046 PRINT "ENTER THE RECORD NUMBER FOR" 


Listing 1. File Manager program for the ZX-81 and Т5-1000. 22850 SCROLL 


Microcomputing, March 1983 20608 PRINT "THAT RECORD. DO YOU WISH TO" 
10% REM ል LISTS PROGRAM FOR THE ZX81 bai ае 
2080 PRINT "SEARCH FOR THE RECORD NUMBER?" 
200 КЕМ MAIN MENU SOSA INPUT AR 
ማ -ሬ 
med pem 2095 SCROLL 
2100 IF AS(1)="Y" THEN GOSUB 5000 
220 PRINT ТАВ 7;"THE LISTS PROGRAM" zie S 
$e ERUNT 2120 SCROLL. " 
248 PRINT "1..ADD RECORD" Jopo ቲቲ МЕО NUMBER TO CHANGE: "3 
250 PRINT 2 
260 PRINT "2..CHANGE RECORD" 2—0 г с A 
270 PRINT 215 
2 "3 Я 2160 IF A>® AND A«*N THEN GOTO 2200 
2 ee PO ne IMPER 2178 PRINT "INVALID RECORD NUMBER" 
292. PRINT "4..LIST ALL RECORDS" occ Bore FOR dol orn 
320 PRINT "S..SEARCH FOR A RECORD" 5с00 E210. SCROLL 
UM 2220 PRINT N$(I):SIS(A,D(I,1) TO 5(1,2)) 
34 со 222ወ SCROLL 
340  PRINT"&6..SORT RECORDS" bere 2243 PRINT TAB iG" CHANGES 
dE usd : 2250 INPUT ልፄ | 
369 PRINT"7..SAVE RECORDS TO TAPE" Лого و‎ Ne 
378 PRINT 2 "met И 
380  PRINT"B..SET UP NEW LIST FILE" бгсо ао оаа 
398 PRINT 22 
s 7 ЧЕ. 2280 INPUT I$(A.D(I,1) TO D(I,2)) 
395 PRINT "9..LIST FIELDS" bep 2285 PRINT ፲ቆ(6,5(፻,1) TO D(I,2)) 
ብ. 2290 SCROLL 
410 PRINT 


23540 NEXT I 
28009 SCROLL 
2810 PRINT "FINISHED WITH RECORD “$A 


500 PRINT “WHICH DO YOU WISH TO ОО?" 


$510 INPUT ል 


2900 SCROLL 
£15 LET ል=1ከፐ ል . .. 
2 2920 INPUT A$ 
oe ee 293@ SCROLL 
e " © 
2E ን» ዬም ፡ም፡፡፡፡.፡ 2940 IF ልቆፄ(1)="ሃ" THEN GOTO 2000 
SS GOTO 239 2950 RETURN 
568 CLS 
[ 
oe eee 3000 REM DELETE ል RECORD 
4 3010 IF N>@ THEN GOTO 3960 
10098 REM ADD RECORDS 3020 SCROLL 


30350 PRINT "NO RECORDS IN FILE" 

3640 GOTO $550 

3060 SCROLL 

3878 PRINT "ITEMS ARE DELETED BY RECORD" 
SOB SCROLL 

X890 PRINT “NUMBER. RECORD NUMBERS MAY" 
3100 SCROLL 

S110 PRINT "CHANGE AFTER AN ITEM IS DELETED" 
3128 SCROLL 

5130 PRINT "DO YOU WISH TO SEARCH FOR THE" 
3132 SCROLL 

3135 PRINT "КЕСОКр?"; 


19010 LET N=N + 1 

19015 SCROLL 

1920 PRINT "RECORD NUMBER "М 
1050 IF Мәм THEN GOTO 16066 
1052 LET N=M 

1055 SCROLL 

1242 PRINT "NO MORE RECORDS CAN RE ADDED" 
1050 GOTO 1929 

1060 FOR 1=1 TO Ni 

1878 SCROLL 

1980 PRINT N$(1)| 


19920 INPUT ፲ፄ (ክ,5(፲,1) TO D(I.2)) *142 INPUT A$ 

1995 PRINT I@(N,D(I,1) TO D(I,2)2)1 5150 SCROLL 

1100 SCROLL 5160 IF ልፄ(1)መ"ሃ" THEN GOSUB 5006 
1119 NEXT I 3170 SCROLL 

1120 SCROLL 3180 PRINT "RECORD NUMBER TO DELETE: "3 
11350 PRINT "CHANGE ANYTHING? "3 5190 INPUT ል 

1140 INPUT ልፄ 5195 LET A*INT ል 

1145 SCROLL 3209 IF A>@ AND A«*N THEN GOTO 3250 
1150 IF ለፄ(1)መ"ሃ" THEN GOTO 1668 5210 SCROLL 

1169 SCROLL *220 PRINT "INVALID RECORD NUMBER" 
1170 PRINT "RECORD ": №; " ADDED" X230 GOTO 5900 

1180 SCROLL 3250 FOR 1=1 TO Ni 

1900 PRINT "ADD MORE RECORDS?"; 26€ SCROLL 

1919 INPUT AS 5270 PRINT NS(I)$IB(A,D(I,1) TO 0(1,2)) 


— ————— M B e ——H———n 





3282 
329% 
525ወኃ2 
5216 
3320 
3330 
5540 
S550 
5560 


3468 
34985 
5410 
3428 
3450 
3452 


3460 
3470 


5922 
5910 
3922 
3936 
3946 
5950 


4000 
4019 
4915 
4020 
4030 
4649 
4045 
4050 
4660 
4070 
4075 
4080 
4090 
4295 
4100 
4110 
4120 
4121 
4123 
4125 
4130 
4140 
4150 
4166 
4170 
4175 
4180 
4196 
4290 
4210 
4220 
4230 
4240 
4259 
4300 
4305 
4319 
4320 
4330 
4246 
4550 
456@ 
4370 
4380 
4590 
44090 
4600 
4619 
4620 


eS аи 


NEXT 1 
SCROLL 


PRINT 


"DELETE THIS RECORD?"; 


INPUT ልቆ 


IF A$( 
SCROLL 
PRINT 

GOTO 3 
IF A=N 


FAST 


1) ж"Ү" THEN GOTO 3362 


"DELETE CANCELLED" 
922) 
THEN GOTO 34590 


FOR I-A TO N-i 


LET I$ 
NEXT I 
SLOW 


(I) wIS (141) 


LET NxN-1 


SCROLL 
PRINT 


SCROLL 
PRINT 


“RECORD DELETED" 


"DELETE ANY OTHER RECORDS?"; 


INPUT AS 


SCROLL 
IF ልፄ( 
RETURN 


1)="Ү" THEN GOTO 3212 


REM LIST RECORDS 


SCROLL 


LET As 


PRINT 


"PRINT ALL RECORD FIELDS?"; 


INPUT AS 


IF As ( 
SCROLL 
FAST 

FOR ፲= 
LET AC 
IF А=1 
NEXT 1 
SLOW 


1) ="ү" THEN LET A=] 


1 TO Ni 
І) =A 
THEN LET A(I)wI 


LET J=Ni 


IF A=1 
SCROLL 
PRINT 

SCROLL 


THEN GOTO 4222 


"ENTER Y FOR EACH FIELD" 


PRINT "YOU WANT PRINTED: " 
LET Jeg 


SCROLL 
FOR I= 
SCROLL 


3 TO N1 


PRINT N$(1);" P'S 

INFUT ልፄ 

PRINT ልፄ(1) 

IF A$(1)«»"Y" THEN GOTO 4216 
LET JsJ+1 

LET A(J) =I 


NEXT 1 
SCROLL 


PRINT "PRINT TO SCREEN OR РКІМТЕК (5/Р) " 
INPUT AS 
IF А%(1) ж"Р" THEN GOTO 4602 


SCROLL 
SCROLL 


PRINT TAB 5;1%;" LIST" 


SCROLL 


FOR I#i TO N 


FOR Ke 


1 TO J 


SCROLL 


PRINT N$(AXOODSISCI,DGOA (GO ,1). TO DG СК), 2) ) 


NEXT K 
SCROLL 
NEXT I 


GOTO 4988 


FAST 
LPRINT 
LFRINT 


ТАВ 5:IL$;" LIST" 


4630 
4640 
4650 
46690 
467 
4689 
4692 
47020 
49@0 
4910 
4920 
4938 
4950 


5222 
5010 
5222 
5930 
2:049 
=52=ሪ 
=060 
5070 
SAR 
S085 
59099 
5095 
5122 
2110 
21260 
5122 
2125 
5126 
5127 
5128 
5129 
5138 
2149 
9159 
5160 
5170 
218 
21960 
5200 
S210 
S220 
5238 
5240 
5258 
5500 
5504 
5505 
S518 
35420 
5222 
954p 
550 
5568 
2570 
3989 
5599 
5600 
2900 
5910 
59202 
$3930 
5950 


6800 

6818 
6828 
6921 

6825 
6832 
6940 
6950 
6960 
6079 


FOR 1=1 TO N 
FOR Kei TO J 
LPRINT 


LPRINT N$(A(GODIFISOI,DOA (GO ,1). TO DI(ACK),2)) 


NEXT К 

LPRINT 

NEXT I a 
SLOW ` 
SCROLL 

PRINT "ANOTHER LIST?"$ 

INPUT AS 

IF ልፄቆ(13)ወ"ሃ" THEN GOTO 4888 

RETURN 


REM SEARCH FOR RECORD 
SCROLL 

PRINT "WHICH FIELD TO SEARCH ON:" 
FOR 1=1 TO М1 

SCROLL 

PRINT ክፄ(፲)፤" 2" 

INPUT AS 

IF ልፄ(1)መ"ሃ" THEN GOTO =1ወፀ 

NEXT I 

SCROLL 

PRINT "SELECTION CANCELLED” 

GOTO 5900 

SCROLL 

PRINT "ENTER THE SEARCH STRING"; 
INPUT AS 

LET Аж ЕМ AS 

IF A«1 THEN GOTO 5110 
IF Acm(D(1,2)-D(I,1) +1) 
LET Am(D(1,2)-D(1,1) 41) 
LET AS=AS(1 TO A) 

LET A=A-1+D (1,1) 

LET Fag 

LET O=@ 

FAST 

FOR J«1 TO N 

IF AS«IS(J,D(I, 1) TO ል) 
IF С=і THEN GOTO 5200 
NEXT J 

SLOW 
SCROLL à 
PRINT "SEARCH COMPLETE" 

SCROLL 

IF F=Ø THEN PRINT "RECORD NOT FOUND" 
GOTO 5900 
SCROLL 

SCROLL 
PRINT "RECORD NUMBER "$J 
FOR к=] TO ከ1 
SCROLL 
PRINT NS(K)$18(J,D(K, 1) 
NEXT К 

SCROLL 

PRINT "CONTINUE SEARCH?" 
INPUT BS 

IF B$(1)*-"N" THEN LET Q»1 
LET ጾ=1 
RETURN 

SCROLL 
PRINT "ANOTHER SEARCH?"|; 
INPUT AS 

IF AS(1)="Y" THEN GOTO =ወወፀወ 
RETURN 


THEN GOTO 5129 


THEN GOSUB $509 


TO D(K,2)0) 


REM BUBBLE SORT RECORDS 

SCROLL 

PRINT "SORTING TIME DEPENDS ON " 
SCROLL 

PRINT "NUMBER OF RECORDS" 
SCROLL 

PRINT "WHICH FIELD TO SORT BY:" 
SCROLL 

FOR I#1 TO Ni 

SCROLL 


፣ 





280 
6899 
6199 
6118 
6129 
6138 
6149 
6159 
6160 
6170 
6189 
6199 
THEN 
6209 
6216 
6220 
6258 
6266 
6278 
6280 
6290 
6989 
6918 
6920 
6925 
e9 50 
6950 


7000 
7910 
72202 
722 
790460 
79042 
70495 
79508 
7069 
7070 
7999 


gaoa 
8212 
8828 
60502 
6240 
8250 
8060 
8061 

80729 
6289 
682502 
8182 
8114 
8126 
6122 
8135 
6148 
8150 
8162 
6178 
8189 
8182 
8184 
8186 
8192 
61935 
82208 
8218 
8220 


8225 


8238 
8240 
8250 
8255 
8268 


PRINT NS{I) 5" ?"3 
INPUT AS 

IF ልፄቄ(1)="ሃ” 
NEXT I 
SCROLL 
PRINT “SORT CANCELLED" 


GOTO 6922 2 
SCROLL - 2 
- Nc 
FOR =] TO N-1 Cory 
FOR к=) TO N | 

IF I$(J,D(I,1) TO D(1,2)) 
GOTO 62590 

LET B$*I$(J) 

LET I$(J)=1$ (K) 

LET I9(K) «Bs 

NEXT K 
NEXT J 
SLOW 
SCROLL 
PRINT 
SCROLL 
PRINT"SORT ON ANOTHER FIELD?" 
INPUT AS 
SCROLL 

IF ፅሰቆፄ(1)መ"'ሃ” 
RETURN 


THEN GOTO 6156 


"d 


<= I$(K,D(CI, 1). TO 5(1,2)) 


"SORT COMPLETE" 


THEN GOTO 62099 


REM SAVE PROGRAM AND DATA TO TAPE 
SCROLL 
PRINT 
SCROLL 
PRINT "BEGIN RECORDING, THEN" 
SCROLL 

PRINT "PRESS ANY KEY TO SAVE LIST", 
IF INKEY$ *"" THEN GOTO 792590 
SCROLL 

SAVE LS 

GOTO 122 


“PUT CASSETTE IN TAPE RECORDER" 


REM SET UP NEW LIST 
SCROLL 
PRINT "WHAT LIST NAME TO USE?"; 
INPUT L$ 
SCROLL 
PRINT "HOW MANY RECORD FIELDS?"; 
INPUT N1 
PRINT አኔ 
SCROLL 
LET ኮ=1= 
PRINT “MAXIMUM NUMBER OF CHARACTERS IN" 
SCROLL 
PRINT "DESCRIPTION 15 (ወ-15)7”1፤ 
INPUT К 
IF K»15 THEN LET K#15 
IF К< ይ THEN LET Каб 
SCROLL 
*51-k 
PRINT MAXIMUM SIZE OF DATA FIELD" 
SCROLL 
PRINT "IS "L3" 
DIM N®(N1,K) 
DIM ል (አ!) 
DIM D(N1,2) 
SCROLL 
SCROLL 
PRINT "NOW ENTER THE FIELD DESCRIPTIONS" 
SCROLL 
PRINT "AND FIELD LENGTHS: "$ 
LET ህ=1 
SCKOLL 
FOR ፲መ=1 TO Ni 
SCROLL 
LET A$e"" 
PRINT "FIELD 


CHARACTERS" 


"antis 


8270 INFUT AS 
шве———————Є—— 


в272 
8275 
8288 
8292 
65222 
8318 
8312 
8315 
6317 
8526 
8339 
8335 
8348 
6550 
8540 
8378 
8252 
8390 
8422 
8418 
5422 
8430 
8435 
8457 
6429 
64462 
8458 
gooo 
8912 
8928 
895952 
8540 
8952 


9202 
9220 
99039 
9040 
99059 
9068 
925 
9979 
9082 
99099 
91060 
9195 
9110 
97090 


PRINT A$. 

LET ልቆፄ=ልዕፄ+" " 
LET N$ (I)=A$ 

SCROLL 

PRINT "FIELD LENGTH (1ፄ-"1፤አ1እ1"):"1 
INPUT A 

IF A<1 THEN LET As1 

IF A>L THEN LET Аз 

PRINT ል 

LET D(I,1)=J 

LET JaJ+A 

LET D(I,2)92J-1 

SCROLL 

NEXT I 

LET JeJ-1 

LET М=@ 

LET M9INT ((80@00-М1#(51-1+12))/4) 
SCROLL 

PRINT “MAXIMUM NUMBER OF RECORDS” 
SCROLL 

PRINT "POSSIBLE IS ABOUT 
SCROLL 

PRINT "HOW MANY RECORDS 
INPUT A 

LET A=INT A 

IF А>@ AND ACM THEN LET 
DIM I$(M,J) 

SCROLL 

PRINT L$;" LIST SET UP" 

SCROLL 

PRINT "PRESS ANY KEY TO 
IF INKEY$ x"" THEN GOTO 

RETURN 


М 


DO YOU WANT?"; 


M=A 


RETURN TO MENU" 
8940 


REM LIST FIELDS 
SCROLL 
PRINT TAB 51:19; " 
SCROLL 
FOR Ізі TO Ni 
SCROLL 
SCROLL 
PRINT NS (1) 
NEXT I 
SCROLL 
PRINT "PRESS ANY KEY TO RETURN TO MENU"; 
SCROLL 
IF INKEYS #"" THEN GOTO 9118 
RETURN 


LIST FIELDS" 


‹ጨ፡)›፡፡፡፡፡፡፡፡፡፡፡፡፡፡፡‹፡፡፡፡፡›፡፡፡፡፡፡፡፡፡፡፡፡፡፡' 


The Р 


ኀ 


e€ceedina proaram is а 

great Littie File manager 
proaram for the ፳ጆ፳ኛ3 of 73518222, 
Hezt News Letter, ule utili 
include some rerinements and = 
Feu hints Or addaptina it for 
the 2853. 
i Bu: the Way, there is а COPY Gf 
this prosram іп Gur tape Libray 
in Case dot dont Feel Like 
typing it аі! in. Just borrow 
the tare from David сч and 
copy 31 j 


